home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / SDBILL.SAB < prev    next >
Text File  |  1990-06-01  |  4KB  |  136 lines
  1. LABEL START
  2.   SET NULL " "
  3.   CLS
  4.   LABEL START2
  5.   SET ERROR MESSAGE OFF
  6.   SET MESSAGES OFF
  7.   SET BELL OFF
  8.   SET ESCAPE ON
  9.   GOTO SELECTION
  10. LABEL TEST1
  11.   CLS
  12.   WRITE "XXX Statement Print Test" AT 1,30
  13.   FILLIN Y/N USING "Would You Like To Print A Statement Print Test?   " at 20,1
  14.   LABEL AGAIN
  15.     IF Y/N = "Y" THEN
  16.     OUTPUT PRINTER
  17.     PRINT NOT.TST WHERE LIMIT = 1
  18.     OUTPUT SCREEN
  19.       ENDIF
  20.   IF Y/N = "Y" THEN
  21.      CLS
  22.   FILLIN Y/N USING "Would You Like To Run Another Test Setup?   " at 20,1
  23.     IF Y/N = "Y" OR Y/N = "YES" THEN
  24.      GOTO AGAIN
  25.     ENDIF
  26.    ENDIF
  27.   CLS
  28.   goto .TOFROM
  29. LABEL SELECTION
  30.   CLS
  31.   display cp.dis
  32.   Write "Security Deposit Statements" at 7,26
  33.   WRITE "   1.    Single Statement" AT 9,10
  34.   WRITE "   2.    Statements For All Accounts Showing A Balance Due" AT 10,10
  35.   WRITE "   3.    Batch Statements" AT 11,10
  36.   WRITE "   4.    Exit Statement Program" AT 12,10
  37.   FILLIN SELECT USING "Enter Selection (1 - 4)  " AT 16,12
  38.     IF SELECT < 1 OR SELECT > 4 THEN
  39.     GOTO SELECTION
  40.       ELSE
  41.     GOTO .SELECT
  42.     ENDIF
  43. LABEL 1
  44.   CLS
  45.   display cp.dis
  46.   WRITE "Single Statement Generation" AT 7,26
  47.   SET ERROR VARIABLE errval
  48.   FILLIN ADDCODE USING "Enter Address Code ->  " AT 10,15
  49.     SET POINTER #1 errptr2 FOR CUR.MAST WHERE ADD.CODE EQ .ADDCODE
  50.     IF ERRPTR2 EQ 0 THEN
  51.        SET VAR TOFROM TO GOOD1
  52.   GOTO TEST1
  53.   LABEL GOOD1
  54.   OUTPUT PRINTER
  55.     PRINT sdbill WHERE ADD.CODE = .ADDCODE
  56.   OUTPUT SCREEN
  57.   GOTO END1
  58.   change rec.call to (.#date + 10) in cur.mast where add.code = .addcode
  59.   change exp.date to (.#date + 20) in cur.mast where add.code = .addcode
  60.   change reason to "Deadline For Paying Deposit Has Now Passed" in cur.mast +
  61. where add.code = .addcode
  62.     ELSE
  63.     WRITE "Address Code NOT Found To Exist" AT 23,24
  64.     BEEP;BEEP
  65.     FILLIN Y/N USING "Would You Like To Try Again?   " AT 24,26
  66.       IF Y/N = "Y" OR Y/N = "YES" THEN
  67.       CLS
  68.       WRITE "O.K." AT 12,39
  69.       GOTO 1
  70.         ELSE
  71.         GOTO END1
  72.       ENDIF
  73.     ENDIF
  74. LABEL END1
  75.   GOTO SELECTION
  76. LABEL 2
  77.   CLS
  78.   display cp.dis
  79.   WRITE "Processing Statements For All Accounts Showing A Balance Due" AT 7,9
  80.   SET V TOFROM TO 3GOOD
  81.     GOTO TEST1
  82.       LABEL 3GOOD
  83.       OUTPUT PRINTER
  84.       PRINT sdbill SORTED BY ADD.CODE WHERE sec.dep < sdreq
  85.       OUTPUT SCREEN
  86.     GOTO SELECTION
  87. LABEL 3
  88.   cls
  89.   REMOVE TAB STATEMNT
  90.   PROJECT STATEMNT FROM CUR.MAST USING ADD.CODE WHERE ADD.CODE FAILS
  91.     LABEL RETRY
  92.     LOAD STATEMNT WITH PROMPTS
  93.     SET V ERROR TO "N"
  94.     CLS
  95.     WRITE "Checking For Incorrect Address Codes - Please Wait" AT 15,10
  96.     SET POINTER #3 END FOR STATEMNT
  97.       WHILE END = 0 THEN
  98.       SET V CODE TO ADD.CODE IN #3
  99.       SET POINTER #2 EO2 FOR CUR.MAST WHERE ADD.CODE = .CODE
  100.       IF EO2 > 0 THEN
  101.         SHOW V CODE
  102.         WRITE "Found NOT To Exist
  103.         DELETE ROWS FROM STATEMNT WHERE ADD.CODE = .CODE
  104.         SET V ERROR TO "Y"
  105.         SET V EO2 TO 0
  106.       ENDIF
  107.       NEXT #3 END
  108.       ENDWHILE
  109.     IF ERROR = "Y" THEN
  110.     WRITE "Ready To Re-Input Incorrect Data" at 17,24
  111.     SET V ERROR TO "N"
  112.       GOTO RETRY
  113.         ELSE
  114.         SET V TOFROM TO GOOD
  115.           GOTO TEST1
  116.           LABEL GOOD
  117.           OUTPUT PRINTER
  118.           SET POINTER #1 EOF FOR STATEMNT
  119.           WHILE EOF = 0 THEN
  120.           SET V CODE TO ADD.CODE IN #1
  121.           PRINT sdbill WHERE ADD.CODE = .CODE
  122.           NEXT #1 EOF
  123.           ENDWHILE
  124.         OUTPUT SCREEN
  125.         REMOVE TABLE STATEMNT
  126.       ENDIF
  127.       GOTO SELECTION
  128. LABEL 4
  129.   CLS
  130.    SET NULL "-0-"
  131.    SET MESSAGES ON
  132.    SET ERROR MESSAGES ON
  133. RETURN
  134.  
  135.  
  136.